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4 01: AX/VMS Macro V04-00 Page 1 
6-SE Pa} 984 9; $3: as ERTHRTL SRCIMTHEXP.MAR; 1 . (1) 
-TITLE MTHSEXP i — gle yh a Floating Exponrntial 
; Func ion 
IDENT /1-011/ 3; File: MTHEXP.MAR Edit: RNH1011 


MPARAARRARAARAAAAAAAAALALLALALEAL AREAS AER E EASA ERAS RSE SERA EASA RRS EES SO 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS ‘tie a A et oe UNDER A LICENSE AND MAY BE USED AND ag Ls 
0 ACCORDANCE AN THE 


® 
os 
* 
® 
® 
* 
® 
INCLUSION OF THE ABOVE types il NOTICE. THIS SOFTWARE OR ANY "OTHER * 
SER Peetone oy NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
® 
TRANSFERRED. . 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
® 
® 
* 
® 
® 
® 


A SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* eaeeenenee eee eeeaenenanenane 


PARR ASAAASAAAAAAAALALALALALALA ALARA E EARL ARS AS ARERR RAA RARE ALARA SERA RASA AAS | 


FACILITY: MATH LIBRARY 
“ABSTRACT: 
MTHSEXP is a function which returns the —. floating point 


exponential of its single Fede Lee floating point argument. 
The call is standard cali-by-reference. 


VERSION: 0 
WISTORYs 
— ~— Yuo, 15-Oct-76: Version 0 
MODIFIED BY: 
0-1 Peter Yuo, 22-May-77 
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MTHSEXP ; Single Precision Floating Exponrntial 16-SEP-1984 01: AX/VMS Macro v04-00 Page 
1-011 fur$t ORY ; Detailed Current Edit History ~-SEP-1984 rat 33: 08 YR TARIL SRCJ MTHEXP.MAR; 1 si 3) 


1 -SBTTL HISTORY ; Detailed Current Edit History 
g ; Edit History for Version 0 of MTHSEXPDEXP 


-1 Code saving after aT Nae w March 1977 
-2 Finish error handl 
-4 coanee ase 2. — ERROR’ "ttn undefined GLOBLs 


-6 MINSSERROR changed to to ee 
MTHS_... eenee 

Changed error Fendt ton "Dickehies. Put error result in RO before 
calling MTHSS$SIGNAL in order to allow user wes 'iy error result. 
o-2 Declared PSECTs and use SFSW_SAVE_PSW. TNH 20-Dec-77 

-8 Invoke SSFDEF. TNH 20-Dec-77 


Edit History for Version 1 of MTHSEXP 
Split single and double precision routines into two parts; 


int 28 more rane and faster algorithms provided by M. Payne. 
3eJ Jan- 


SOoOOoOooOooooooooooooooSsoo 


COooooooooooo°oo 


1-3 Fixed bug causing unexpected wateger wei. a er 

1-4 Fixes for better accuracy. Use ADDD. 

1-5 Move .ENTRY mask definition to nes RK, 7 1 14-Aug-78 

1-006 = Update version number and soure ‘fs notice. JBS 16-NOV-78 

1-007 - Change symbols MTH__FLOUNDMA FLOOVEMAT to 

MTHSK_FLOUNDMAT and MTHSK "FLOOVEMAT Soupaatteate, 

JBS 07-DEC-78 
| 
| 
| 
| 


8 - Add ‘'_"* to the PSECT Bia gBs 22-DEC-78 

9 - Declare externals. May-19 

0 = Included logic to a. the loss ie a es in EMOD for 
arguments greater than 2**4, RNH 

1 = Chaneged W* to G* in calls to MNHSSSTCNAL and MTHS$SJACKET_TST 
RNH 09-Sept-1981 
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ATHSEXP : Single Precision Floating Exponential 16-SEP-1984 01:23:30 VAX/VMS Macro v04-00 p | 
Moti BECLARATIONS ; Declarative Part of Modu aa et 94:53:08 UMTMRTL. SREIATHEXP. MAR: 1 _ ay 
‘ -SBTTL DECLARATIONS 3; Declarative Part of Module | 
: : INCLUDE FILES: MTHJACKET.MAR | 
0 o 
$3 = external SYMBOLS | 
00 38 : 
00 94 -DSABL GBL 
00 55 -EXTRN MTHSK_FLOUNDMAT 
000 9 “EXTRN MTHSK~FLOOVEMAT | 
o -EXTRN MTHSSSIGNAL ; SIGNAL SEVERE error 
900 98 -EXTRN MTHSSJACKET_TST 
8 190 ; EQUATED SYMBOLS: 
0000401C 000 10 ACMASK = “M<IV, R2, R3, R4> : regist i k and IV bl 
00000025 9900 108 . “<a ae S Extension for sperand in EROOR 
0000 105 : MACROS: 
4 196 : SSFDEF :; define SF$ (stack frame) symbols 
0000 108 ; PSECT DECLARATIONS: 
0000 109 
00000000 110 -PSECT _MTHSCODE PIC,SHR,LONG, EXE ,NOWRT 
444 i ; 3; program section for math routines 
000 118 : OWN STORAGE: none 
000 114; 
0 115 ; CONSTANTS: 
0 419 
0 118: Table to be used for scot ing. These constants here have been 
3 13 3; verified by M. Payne using her program ROOT16 on PDP-10. 
000 121 TABLE: 
0600 $080 000 1 § -WORD *%*0040200,0 3 22(0/16) = 1.0 
AACS 408 004 1 WORD *0040 93° .0185303 3 2e*(1/16) 
95C2 4088 0008 124 eWORD *0040213,°0112 9 g eetrics 
$30 4091 0 6 125 eWORD *0040221,°014172 3 2*2(3/16) 
7FO 4098 1 1 $ -WORD *0040 80083788 3 20*(4/16) 
F53 rt'+43 14 1 é D *0040 “01 $38¢ 3 2e2(5/16) 
rep rt . 9 $ «WORD * rf 45,°017 $ : 22687192 
583F 4 ae 3 1 WW *0040255,*0054077 3 2**(7/16) 
Behe 408 130 ® a 9t' § -”0002363 3 2e2(8/16) 
oae 4 9 4 131 ow *004 "0004244 3: 2%%(9/16) 
6 ° 40C 9 § -WORD * rt 05,° § 452 3: 2%*(10/16) 
248C opce 5 1 -WORD * 48-20 14 3 2*"(11/16) 
44FD 40D 134 -WORD %*0040527,°004 £3 : rob tt TAF t 
CCDF 40E0 4 135 = D *004 "014 3 3 2e2(15/16) 
coe? 40EA So i9 § eWORD *0040352,°014 7 3 2%2(14/16) 
D 40F5 C ' -WORD *0040365,°0022575 3 2e*(15/16) 
p 1 3 : Table to be used for scot tng. These constants here have been 
3 19 3; verified by M. Payne using her program ROOT16 on PDP-10. 
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999 4 40 148 TABDB: .WORD  *0040200,0 : 2*#(0/16) = 1.0 
9 44 14 WORD | 
AA 48 144 “WORD  *604 305 .20125303 : 2**(1/16) 
48 6 ce 4¢ 145 -WORD  *006 ,*00441 
Ci 4 146 ~WORD  *004 3 + 201187 1 : 20*(2/16) 
D t EA 4 1% ~WORD *016 »*0105727 
C3) 1 8 148 «WORD  *0040221,°01417 ; : 208(3/16) 
11¢3 7 AB f 14 wORD *0071 +2001 7 
37F0 409 60 150 ~WORD  *004 »*0 760 : 208(4/16) 
BBA 518D 0064 151 .WORD *005 »*0134251 
F532 & : 68 1 : ~WORD  *0040236,°01724 : 200(5/16) 
Ail t 9 o6¢ 1 .WORD *0 $0 1.2018 4 
FE AS 154 -WORD *0 -*01 : 208(6/16) 
31 a9B1 0074 155 -WORD *0124 8) «208308 1 
83E 40AD 0078 136 . WORD 20040 5,°005407 : 2"*(7/16) 
Ald EAE o7c 15 <WORD *016 02.201 031 
O4F 408 080 158 “WORD 2094026 ,*00 ¢ 6 : 2e*(8/16) 
DEG 339 O84 159 ~WORD *0031 1.201 145 
0 40BD 088 160 ~ WORD 2004027 + 20004243 : 20*(9/16) 
oc3 9F58 008C 161 -WORD *011 30.2006 $7 
672A 40¢> 090 16¢ «WORD  *0040305,°00634 Q : 20*(10/16) 
06DB 11 094 16 «WORD *0010525,°000333 
48C 4oce 098 164 -WORD *0040 16,200 2214 : 28(11/16) 
481 151F 009C 165 ~ WORD 32001243 »*01 é 01 
44FC 4007 O0A0 166 -WORD  *004 337.2004 74 : 20*(12/16) 
9D6B CAD6 O0A4 16 «WORD *0145326,°0116553 
CCDE 4060 ABS 168 ~WORD *0040340,°0146336 : 208(13/16) 
94E1 EC2A OOAC 169 -WORD *0166052,°0112341 
cog 40EA 0080 170 .WORD 2004035 »*0140306 : 20*(14/16) 
439 E7DD 00B4 171 -WORD *0163735,°0022071 
57D OF 0088 1% -WORD *0040365,°00 9373 : 20*(15/16) 
6CC 1524 doB¢ 173 -WORD  *0012444,°0103314 
3 \73 : Polynomial coefficient tables for POLYF. 
OCO 177 EXPTAB: 
9924 510 ¢ 178 «WORD  %0032435,°0114444 : 
5F1B 386 (4 17 «WORD  *0034143,°0057433 : 
FDF 75 00C8 180 ~WORD *0035565,°0176760 ; 
7217 3631 cc 181 ~WORD *0037061,°0071027 ; 
0000 900 pd (1 : .WORD 0,0 : 0.0 
0000000 Op4 3 EXPLEN = <.-EXPTAB>/4 
D4 185 EXPTB1: 
8333 E2A 00D4 1 6 .WORD *00 705 -*0131463 : 
B555 3F2A 0008 1 ~WORD *0037452,°01 33 5 ; 
FREE SFFF o¢ 188 ~WORD *0037777,°01 7 : 
FEFF 4O7F E 189 -WORD * 40177 ,00177777 : 
0000 4 80 E4 190 -WORD *0040200,0 : 1.00000000254251 
0000000 E 191 EXPLN1 = <.-EXPTB1>/4 
E 138 F_16L0G2_E: ; LOG2(E) * 16 
AA3B 4288 O0E 194 “WORD *0041270,°0125073 
EC 195 F_LN2_0V_16 HI: : High 13 bits ln2/16 
70003€31 E 196 “LONG *x70003E31 
F 197 F_LN2_0V_16_LO: ; Low bits of ln2/16 
FDF43705 OOF 198 “LONG  *XFDF43705 
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MTHSEXP ; Single Precision Floating Ex catentel 16-SEP-1984 01:23: AX/VMS Macro V04-00 Pa 
Moti WTASEDP = Standacd Single Brestoton Pica Sosep-19B6 $4233:08 FATANTE CReSRTHICRP ARS 1 ve 8, 


~SBTTL MTHSEXP = Standard Single Precision Floating EXP 


++ 
FUNCTIONAL DESCRIPTION: 
EXP = single precision floating point function 


6D 00000000'GF MOVAB G*MTHSSJACKET_HND, (FP) 
3 set handler address to jacket 


handler 


; in case of an error in special JSB 
; routine 
; RO = user's arg 


F4 
Fe 308 
F4 4 
Be 
FG : : 
Fe 509 
Fe 810: BPC) is computed using Chebyshev approximation 1001: about 
F4 11 ; 27 bit accuracy. 
gt Be: 
ord 14 : CALLING SEQUENCE: 
Bore 1$ : Exponential.wf.v = MTHSEXP(x.rf.r) 
Ore 318 > INPUT PARAMETERS: 
00000004 O0F4 0 LONG = 4 3 define Lonquerg multiplier 
00000004 Baee 1 x = 1 * LONG ; Contents of x is the argument 
Opee 3; IMPLICIT INPUTS: none 
Gore 5 > OUTPUT PARAMETERS: 
Bore ; ; VALUE: floating exponential of the argument 
Baee : : IMPLICIT OUTPUTS: none 
OOF4 1; SIDE EFFECTS: 
b0r4 38 : Signals: MTHS$_FLOOVEMAT if X > 88.028 with reserved eeerene in RO/R1 (copied 
OOF4 4 ; to the signal mechanism vector CHFSL_MCH_RO/R1 by LIBSSIGNAL). Associated 
OOF4 $2 3 message is: ‘FLOATING OVERFLOW IN MATH LIBRARY’. Result is reserved operand 
OOF 4 6 ; -0.0 unless a user supplied (or any) error handler changes CHFSL_MCH_RO/R1. 
OOF4 $ : MTHS_FLOUNDMAT if X =< -89.416 and caller has hardware enable Set. 
OOF4 8 ; The result is set to +0.0. Associated message is: ‘FLOATING UNDERFLOW 
Gor4 23 : IN MATH LIBRARY’ 
OF4 41 : NOTE: This procedure disables floating point underflow, enable integer 
OOF4 ¢g 3; overflow, causes no floating overflow or other arithmetic traps, an 
OF4 435 ; preserves enables across the call. 
OF4 44 ; 
ore 45 j;--- 
tie 
401C F4 re ENTRY MTHSEXP, ACMASK ; standard call-by-reference entry 
F6 4 3; disable DV (and FU), enable IV 
7 50 MTHSFLAG_JACKET ; flag that this is a jacket procedure 
F6 
FD 
FD 
FO 
FD 
FD 
FD 


fororo 
wn 
wn 
eeeee 


MOVF @x(AP), RO 


01 1 4 BSBB MTHSEXP_R4 3; RO = special Oty 
be 8183 $3 RET oe : e peture’ = result in RO 
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anpingExpontnc 1g>sep-198s O1:33:38 YARIS ag. HEXP-RAR; 1 


-SBTTL MTHSEXP_R4 = Special EXP routine 
; Special EXP = used by the standard, and direct interfaces. 


: CALLING SEQUENCE: 
: seve anything needed in RO:R4 


z- 
“ 
720 
+ @ 
*? 
19 
o--—- 
oo 
=] 
qn 
= 
> 
a 
is) 
oO 
“~ | 
woo 
- j 
— 
z 
-_ 


xm 
tf —- 
ms 
be * Deed 
z 


ecia 


: input in RO 
JSB mTHSeEx 
return with eaealt in RO 


:; Note: This routine is written to avoid causing ony inseger overflows, 
: floating overflows, or floating underflows or divide by 0 conditions, 
: whether enabled or not. 

: REGISTERS USED: 

g floating argument, then result 


104 
104 
104 
104 
104 
104 
104 
104 
104 
104 
104 
104 
104 
18 
104 - 
104 R - ordated exponent 
104 RS = scratch 
0104 7g’ R4 = integer part of X * LOG2(E)* 16 
104 7 
104 78 MTHSEXP_R4:: 3; special EXP routine 
2g 50 8000 8F ry 0104 8 OVUND : “Shots #*x8000, RO. : 3 Pret tainery test for over/under flow 
5 26 3600 BF OA 10A 80 #*Xx3E00, 3 R3 = (4+exponent) + Ist 7 fract bits 
5 0580 8F B61 011 81 CMP #*x5B0, 3; Compare iX: with 
5C 1F O11 Hf BLSSU SHTStT 3; to more tests it LSSU 
ae 8 s else, -4 < unbiased exp < 8 
git? Hf ; no exceptions in EMODF. po POL YF 
4280 8F 52 B61 0117 86 CMPW R2, #*X4280 : Check for loss of significance in 
011¢ 87 3: EMOD ( iXi >= 204 
20. «619 Bite Ht: BLSS EVAL ; No loss of significance 
11E 90 ; 
gH 91 ; IXt >= 2ee4, EMOD will lose significance so the interger and fractional 
ve 38 3 parts of X*16/[n2 must be obtained in seperate steps. 
51 50 C7 AF 45 Oli 94 MULF3 £F_16L0G2_E, RO, R1 3; Get Be oat part of X*16/Ln2 in 
54 51 4A 01 95 CVTFL RT, R4 : as a longword and in 
51 54 & 126 36 CVILF =R4, R1 3 RI in F format 
52 51 COAF 4 129 9 MULFS F_LN2_ OV_16_HI, R1, R2 ; Get fraction part of X*16/\n2 = 
50 52 42 01 ‘ 98 SUBF oR ; 16/ln2eC X = (14+J)*ln2/16 J 
51 so of $3 ' + ys F LNe OV_16_LO, R1 3 . 
50 AD AR 44 1 5 5 RULE Fist oc2_e. RO ; 
13€ : 
50 54 50 29 A7 AF 54 Q1 be EVAL: EMODF F_16L0G2_E, #X_51, RO, R4, RO 
14 5 ; get X*16*LG2(E) with 
14 $ : integer part in RG (=I]4J) 
12 : fraction = W in RO/R1 
FF75 CF 04 50 55 014 : POLY: POLYF RO, MEXPLEN-1, EXPTAB ; evaluate Fon’with P ap- 
128 : 3 rentaet Y ote POLY. 
: coef ients. 
52 54 FFFFFFFO 8F C 14 i? BICL3 : 
50 FEAR cE4g 44 015 1g MULF Taper 24." ho t cleo fe 20*(J/16) 
50 FEE2 CF4 60 01 1 ADDD TABDBLR ® ; add Pry bp *#(J/16) 
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MON ATHSERP-RG = Special EXP routine or$ee=198e 91:58:08 EAtARTe Re oATHEXP MAR: 1 ve 2, 1- 
2? 0 76 O15F 14 CVTDF 0 RO 
4 OF cA 1 15 BICL #15, R4 : R42 i 
B 3 «(01 1 BEQL RETURN 3; if ir then done 
50 6044 /7E Q1 1 MOVAQ (RO)CR4], RO : shift f to exp position and 
168 1 3 MUL by 2**] by exponent addition 
OO7F 8F 30 B1 1 1 CMPW RO, #*X7F 3; test for over/under flow 
D 615 «(01 BLEQ EXCEPT 3 see what exception is if ann or = 0 
05 1? RETURN: RSB 3 otherwise return result in RO 
17 j SMTST: 
1 19 017 4 BLSS TOOBIG 3 exception if exp+4 > 11 
3400 8F B1 017 5 CMPW R2, #*x3400 : eliminate underflow if exp <-24 
19 O17A § BLSS 3; bypass if E**ARG = 1 
LY ° XPLNi-1, EX 3; evaluate alternate polynomia 
FFS2 CF 04 0 55 O17 POLYF RO, #EXPLNI-1, EXPTB1 l L l ial 
05 gis 8 RSB 
50 08 50 018 0 ONE: MOVF $*#1.0, RO 3; E**ARG =1; store it 
05 136 1 RSB 3 and return 
Ha 
ge 
ot87 2 3; Handlers for software detected over/underflow conditions follow 
50 «(53 6187 37 fooBIG: TSTF RO ; if big ARG > 0 goto OVERFLOW 
28 «(18 3138 Hs BGEQ OVER 
0188 40 ; Underflow; if user has FU set, signal error. Always return 0.0 
0188 342 ONDER 
52 oC 0188 rk MOVPSL R2 3; R2 = user's or jacket routine's PSL 
00000000'GF 00 FB 018D 44 CALLS #0, G*MTHSSJACKET_TST ; RO = TRUE if JSB from jacket routine 
04 50 F 8133 45 BLBC : branch if user did JS 
52 04 AD 3C 0197 46 MOVZ2WL SF$W_SAVE_PSW(FP), R2  ; get user PSL saved by CALL 
50 D4 0198 47 10$: CLRL RO ; RO = result. LIBSSIGNAL will save in 
3195 48 ; CHFSL_MCH_RO/R1 so on handler can fixup 
0D 52 06 €1 0190 49 BBC #6, R2, 20% 3; has user enabled floating underflow? 
6— ODD O1AI 50 PUSHL = ¢ 3 yes. return PC from special routine 
7E O0°8F 9A gIAe 51 MOVZBL #MTHSK_FLOUNDMAT, -(SP) ; trap code for hardware floa ing under f Low 
OIA 26 3 convert to MTHS_FLOUNDMAT (32-bit VAX-11 
01A7 5 3: exception code) 
00000000'GF 02 FB O1A7 54 CALLS #2, G*MTHSSSIGNAL 3 signal (condition, PC) 
05 is 22 208: RSB 3 return 
1AF 37 EXCEPT: 
54 05 OAF 8 TSTL R4 ; test sign of I; if 1 <0 
d8 19 181 23 BLSS UNDER 3 go to underflow handler 
1 o ; Signal floating overflow, return reserved operand, -0.0 
1B 8 OvER: : else process for overflow 
6— DD 018 64 PUSHL (SP) 3; return PC from special routine 
7E OO°8F 9A 01B5 65 MOVZBL #MTHSK_FLOOVEMAT, -(SP) ; hardware floating overflow 
50 01 OF 79 0Q1B9 $6 ASHQ #5, ~ RO ; RO = result = reserved operand 
1BD 6 3 70.0. RO will be copied to 
1BD o8 3 signal mechanism vector (CHFSL_MCH_RO/R1) 
18D § 3 so can be fixed up by any error 
1BD 0 3: handler 
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00000000 ' GF 
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~ END 


#2, G*MTHSSSIGNAL 


BSE 198. 91:88:58 UATANTL. SRESATH dime deat” 


3; signal (condition, 
3; return - RO phe By from CHFS$L_MCH_RO/R1 


Symbol table 
ACMASK = 00004 
EVA 


“SEP! 


DD 
oo 
ror 


EXPTAB R 
EXPTB1 : ] 
F_16L0G2_E ES R 
F _LN2_OV_16_HI EC R 
F-LN2_OV_16_LO OOOOFO R 
G 00000004 
MTHSSJACKET_HND ‘teeeeeee x 2 
MTHSSJACKET_TST eneeeee 
MTHSSSIGNAL eeeeeree x 0 
MTHSEXP QOOOO0F4 RG Bs 
MTHSEXP_R4 00000104 RG 0 
MTHSK_FCOOVEMAT eeeereeee x 00 
MTHSK_FLOUNDMAT eeeeeee xX 00 
ONE 00000183 R 0 
OVER 000001B3 R 0 
OVUND 00000104 R 0 
POLY 00000145 R 0 
RETUR 00000172 R 0 
SFSW_SAVE_PSW = 000000 
SMTST 00000173 R 02 
TABDB 00000040 R 02 
TABLE 0000 & 02 
TOOBIG 00000187 R 02 
UNDER 00000188 R 02 
x = 00000004 
x_51 = 00000029 
www nr een wee een ese + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- 8 .« 00U00000 00 ¢ QO.) NOPIC USR CON ABS LCL N 
SABSS 0000000 ( 0.) 4 ( 1.) NOPIC USR CON ABS LCL N 
_MTHSCODE 00001C5 ¢« 45 2¢ 2.) PIC USR CON REL LCL 
eaveveeseeseeeesessosses} 
H ;_Per formance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.10 8:00: 1.06 
sounene processing + : z 1:80 333 : i. : 
Syabol table sort aS :00: 05 0:00: $312 
Symbol table output :00:00.05 :00:00. 
Psect synopsis output :00:00. :00:00. 
Cross-reference output :00:00. :00:00. 
Assembler run totals 35 " :00:21. 


MTHSEXP ; Single Precision Floating ipenreniol bas ith a: $3: 3 y 


NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 


+ 


; Single Precision Floating Exponential ob 5 ~138¢ 9: $3: 38 AX/VMS Macro v04-00 Page 12, i 


Hi Macro Run Statistics MTHRTL.S ROOM THEXP.MAR; 1 ( 


The working * Limit ues 1930 ages. 

720 bytes (16 pages) of virtual memory were used 7. buffer the intermediate code. 

is" were { pages of syabet table sere al oy, hold 59 non-local and 2 local symbols. 
source Lines were read in Pass 1, producin object records in Pass 2. 


9 pages of sireuel memory were Fs, to def ne macros. 
bee eceteneoeressseeseenezasea} 


! Macro Library statistics ! 


$ecereee eset een een eer eer oo ee} 


Macro Library name Macros defined 
“S255SDUA2B:(SYSLIBISTARLET.MLB;20 SS” ba 
88 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHEXP/OBJ=OBJ$:MTHEXP MSRC$:MTHJACKET/UPDATE=(ENHS:MTHJACKET) +MSRCS:MT 


NT CORPORATION 
D PROPRIETARY 
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